home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u288.dms / in.adf / Examples / Copier.p < prev    next >
Encoding:
Text File  |  1990-07-18  |  1.4 KB  |  61 lines
  1. Program Copier;
  2.  
  3. {
  4.     This is a simple program to exercise DOS a bit.  It just
  5. copies one file to another, using DOSRead and DOSWrite.
  6. }
  7.  
  8. {$I "Include:Libraries/DOS.i"}
  9. {$I "Include:Exec/Ports.i"}
  10. {$I "Include:Utils/Parameters.i"}
  11. {$I "Include:Utils/StringLib.i"}
  12.  
  13. var
  14.     InputFileName  : String;
  15.     OutputFileName : String;
  16.     Position       : Integer;
  17.     Infile         : FileHandle;
  18.     Outfile        : FileHandle;
  19.     Buffer       : ^array [1..1000] of char;
  20.  
  21. Procedure Usage;
  22. begin
  23.     Writeln('Usage: Copier FromName ToName');
  24.     Exit(20);
  25. end;
  26.  
  27. begin
  28.     InputFileName := AllocString(80);
  29.     OutputFileName := AllocString(80);
  30.  
  31.     GetParam(1, InputFileName);
  32.     if InputFileName[0] = Chr(0) then
  33.     Usage;
  34.     GetParam(2, OutputFileName);
  35.     if OutputFileName[0] = Chr(0) then
  36.     Usage;
  37.  
  38.     Infile := DOSOpen(InputFileName, MODE_OLDFILE);
  39.     if Infile <> nil then begin
  40.     Outfile := DOSOpen(OutputFileName, MODE_NEWFILE);
  41.     if Outfile <> nil then begin
  42.         New(Buffer);
  43.         repeat
  44.         Position := DOSRead(Infile, Buffer, 1000);
  45.         if Position > 0 then begin
  46.             Position := DOSWrite(Outfile, Buffer, Position);
  47.             if Position = 0 then begin
  48.             writeln('Write error');
  49.             exit(20);
  50.             end;
  51.         end;
  52.         until Position = 0;
  53.         Dispose(Buffer);
  54.         DOSClose(Outfile);
  55.     end else
  56.         writeln('Could not open output file.');
  57.     DOSClose(Infile);
  58.     end else
  59.     writeln('Could not open input file.');
  60. end.
  61.